home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 12-03.BAS < prev    next >
BASIC Source File  |  1991-06-07  |  330b  |  24 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. IF FGcapslock THEN
  6.    PRINT "CapsLock is on."
  7. ELSE
  8.    PRINT "CapsLock is off."
  9. END IF
  10.  
  11. IF FGnumlock THEN
  12.    PRINT "NumLock is on."
  13. ELSE
  14.    PRINT "NumLock is off."
  15. END IF
  16.  
  17. IF FGscrlock THEN
  18.    PRINT "ScrollLock is on."
  19. ELSE
  20.    PRINT "ScrollLock is off."
  21. END IF
  22.  
  23. END
  24.